www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Gu_news.asp

    <!--#include file="ku_top.asp"-->
<% id=request.querystring("guxing")%>
<%
function title()
title="拼客新闻"
end function
%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
		<tr>
			<td height="454" width="740" valign="top">


			<div align="center">


			<table cellpadding="0" cellspacing="0" width="740" height="452">
				<tr>
					<td height="36" background="Ku_img/News/news_001.JPG"><div id="dazi">
							<p align="left">
							<b><font color="#0066FF">
							&nbsp;&nbsp; </font>新闻列表</b></div> </td>
				</tr>
				<tr>
					<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
					<div align=center>

<table width="730" border="0" align="center" cellpadding="0" cellspacing="0">



<tr>
<td colspan="2">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" >
<tr>

<td height="29" bgcolor="e7ebef" style="font-weight: bold" width="69%">
<p align="center">新 闻 标 题</td>
<td width="14%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
	新闻分类</div></td>
<td width="14%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">日期</div></td>

<%

if id="" then

	set rs=server.createobject("adodb.recordset")
	sql="select * from ku_news where shenhe=1 and 1=1 "
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from ku_news where shenhe=1 and class="&id
	end if


	
	sql=sql&" order by dateandtime desc"
	'response.write sql
	'response.End
	rs.open sql,conn,1,1
	
	dim a
	Set a=New PageList
	listLimit=22
	'模拟分页一页显示分页数
	pageLists=5
	'设置分页参数

If rs.BOF or rs.EOF Then 
%>
</tr>
<tr bgcolor="#C6E3F4">
  <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">此类暂无新闻！</td>
  </tr>
<%
else

'分页循环开始
totalList=rs.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rs.pagesize=listLimit
page = request("page")
If page="" Then
	page=1
End If
rs.absolutepage = page
for i=1 to rs.pagesize
%>
<tr>

<td height="24" width="69%">
<img border="0" src="pkxx-Img//01/e.gif">
<a href="Gu_shownews.asp?guxing=<%=rs("id")%>" title="<%=rs("title")%>" >
<%=Trim(rs("title"))%></a>

</td>
<%
cid=rs("class")
set kurs=server.createobject("adodb.recordset")
    csql="select * from ku_newskind where id="&cid
    kurs.open csql,conn,1,3
%>
<% do while not kurs.eof%>

<td align="center"><%=kurs("name")%></td>

<td align="center"><%=DateTimeFormat(rs("dateandtime"),4)%></td>


<%
   kurs.movenext
   loop
   kurs.close
   
%>	
</tr>
<%
rs.movenext
if rs.eof then exit for
next

end if
%>
</table></td>
  </tr>


</table>
</div>
<%
rs.close
set rs=nohing
%>
					</td>
				</tr>
								<tr>
									<td height="16" background="Ku_img/News/news_002.JPG" align=center>  &nbsp;<%=a.PageInfo%></td>
								</tr>				
				<tr>
					<td height="4">
					<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
				</tr>
			</table>
			</div>
			</td>

			<td width="0">　</td>
			<td width="232" valign="top">
			<!--#include file="Ku_type/Index_login.asp"-->
			<!--#include file="Ku_type/news_kind.asp"-->
			</td>
		</tr>
	</table>
</div>
<!--#include file="Ku_foot.asp"-->